home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 91xx / 9111b.d64 / trainer last nin (.txt) < prev   
Commodore BASIC  |  1995-03-30  |  591b  |  18 lines
  1. 100 CLR:DIMTS$(5):DIMB1(5):DIMB2(5):DIMF(5):TR=-1:REM -1:ON, 0:OFF
  2. 110 TS$(1)="17 02":B1(1)=194:B2(1)=15:F(1)=1
  3. 120 TS$(2)="17 17":B1(2)=247:B2(2)=12:F(2)=2
  4. 130 TS$(3)="07 05":B1(3)=96:B2(3)=14:F(3)=2
  5. 140 TS$(4)="17 17":B1(4)=139:B2(4)=15:F(4)=3
  6. 150 TS$(5)="07 05":B1(5)=232:B2(5)=12:F(5)=3
  7. 160 FORI=1TO5
  8. 170 IFF<>F(I)THENGOSUB250
  9. 180 OPEN2,8,15:OPEN1,8,2,"#"
  10. 190 PRINT#2,"U1 2 0 "TS$(I)
  11. 200 PRINT#2,"B-P 2 187"
  12. 210 IFTRTHENPRINT#1,CHR$(249)CHR$(76)CHR$(138)CHR$(B1(I))CHR$(B2(I));
  13. 220 IFNOTTRTHENPRINT#1,CHR$(186)CHR$(3)CHR$(237)CHR$(10)CHR$(148);
  14. 230 PRINT#2,"U2 2 0 "TS$(I)
  15. 240 F=F(I):CLOSE2:CLOSE1:NEXT:END
  16. 250 PRINT"INSERT DISK - SIDE"F(I)CHR$(13)"PRESS ANY KEY !"
  17. 260 POKE198,0:WAIT198,1:POKE198,0:RETURN
  18.